package Template5::HTML::DTD; 
use base qw(Template5::DTD::Base);

use Template5::DTD;
use Template5::Ns;

#-------------------------------------------------------------------------------
our %import  = ('tmpl' => Template5::DTD->new()); 
our $nsurl   = '';
our %allowed = (''   => ['::'],
								'::' => ['tmpl::container', 'tmpl::if', 'tmpl::repeat', 'tmpl::while', 'tmpl::switch', 'tmpl::link', 'tmpl::templinsert', 'tmpl::ins', 'tmpl::cache', 'tmpl::text', 'tmpl::attr', 'tmpl::templatribute', '::']);

#-------------------------------------------------------------------------------
#public
sub new
{
	my $class = shift;
	return  $class->SUPER::new($nsurl, \%allowed, \%import);
};

#protected virtual
sub _in_namespace($)
{
	my $this    = shift;
	my $nameurl = shift;

	my $templatens     = TEMPLATENS;
	my $templateinfons = TEMPLATEINFONS;

	return ($nameurl !~ /^$templatens([^\\\/#]+)$/) && ($nameurl !~ /^$templateinfons([^\\\/#]+)$/);
};

1;

